home *** CD-ROM | disk | FTP | other *** search
/ Zoom 2 / Zoom - Release 2 (1996)(Active Software)[!].iso / programming / amos / amossible / spritesnbobs / easymove.amos / easymove.amosSourceCode < prev    next >
Encoding:
AMOS Source Code  |  1980-05-17  |  825 b   |  26 lines
  1. '**********NO AMAL?NEVER FEAR-TOTAL BEGINNERS IS HERE!-By Mark Wickson**************** 
  2. Rem Easy AMOS users will have noticed that they do not have the incredibly 
  3. Rem useful AMAL-But don't worry as you can use variables to move and animate 
  4. Rem things.
  5. Rem All we do here is substitute the Bobs horizontal coordinate for a variable 
  6. Rem -And increase it by 1 every loop-making the Bob look as if it is moving  
  7. Rem right. 
  8. Rem the line:  
  9. Rem If X>=320 Then Edit  
  10. Rem says that if the "X" variable is greater than or equal to 320 then go back 
  11. Rem tothe editor-Of course you could take this line out,but "X" would keep 
  12. Rem increasing `forever'.
  13. Screen Open 0,320,256,16,Lowres
  14. Flash Off 
  15. Curs Off 
  16. Cls 0
  17. Load "ATTBG:NICECAR.Abk"
  18. Get Bob Palette 
  19. Double Buffer 
  20. X=10
  21. Do 
  22. X=X+1
  23. Bob 1,X,110,2
  24. If X>=320 Then Edit 
  25. Wait 1
  26. Loop